#' Replication package for:
#' "Foreign Policy Appointments"
#'  Matt Malis (malis@tamu.edu)
#' International Organization, 2024

rm(list=ls())
needpacks = c('tidyverse','lubridate','countrycode','peacesciencer','xtable','modelsummary', 'readxl')
sapply(needpacks, function(x) require(x,character.only = T))

replication_wd = '~/Dropbox/appointments_replication'
setwd(replication_wd)

source('1-manifesto-cleaning.R')
source('2-manifesto-hawkdove.R')
source('3-whogov-cleaning.R')
source('4-merging.R')
source('5-analysis.R')
source('6-us-secdef.R')
